﻿'Imports Microsoft.Practices.Composite.Wpf.Regions
'Imports Microsoft.Practices.Composite.Regions
'Imports Infragistics.Windows.Ribbon

'Namespace Regions

'    Public Class RibbonTabItemRegionAdapter
'        Inherits RegionAdapterBase(Of RibbonTabItem)

'        Protected Overrides Sub Adapt(ByVal region As Microsoft.Practices.Composite.Regions.IRegion, ByVal regionTarget As RibbonTabItem)
'            'For Each v As RibbonTabItem In region.ActiveViews
'            '    regionTarget.Tabs.Add(v)
'            'Next

'            '    ' addhandler    region.ActiveViews.CollectionChanged, 
'        End Sub

'        Protected Overrides Function CreateRegion() As Microsoft.Practices.Composite.Regions.IRegion
'            Return New AllActiveRegion
'        End Function




'    End Class

'End Namespace